The X-Philes (2nd Revision)/The X-Philes Number 1 (1995).iso/xphiles/hp48hor1/dte48.src

Text File | 1990-10-16 | 875b | 45 lines

%%HP: T(3)A(D)F(.);
@ by Kevin Jessup
\<< 1 2 3 CF CF CF CLLCD OPENIO "" "" "" "" "" "" ""
  DO
    IF BUFLEN DROP DUP 1 FC? AND
    THEN
      IF DUP 22 >
      THEN DROP 22
      END SRECV DROP +
      IF DUP SIZE DUP 22 >
      THEN OVER 23 ROT SUB SWAP 1 22 SUB SWAP 8 ROLL DROP
      ELSE DROP
      END 1 7
      FOR i i PICK 8 i - DISP
      NEXT
    ELSE DROP
    END
    IF KEY
    THEN
      CASE DUP 54 ==
        THEN 1
        END DUP 61 ==
        THEN 1 TOGF DROP 0
        END DUP 71 ==
        THEN 2 TOGF DROP 0
        END DUP 81 ==
        THEN 3 TOGF DROP 0
        END
        IF 2 FS?
        THEN 2 CF 95 +
        END
        IF 3 FS?
        THEN 3 CF 190 +
        END KEYMAP SWAP DUP SUB
        IF XMIT NOT
        THEN DROP
        END 0
      END
    ELSE 0
    END
  UNTIL
  END 8 DROPN
CLOSEIO
\>>